.model small
.stack 100h 
.data    
  pr1 db "Iveskite simboliu eilute: " , 0Dh,0Ah, "$"
  pr3 db 0Dh,0Ah,"Aleksandr Kravcenko, informatikos II-kursas, III grupe: Nr, 8 Parasykite programa, kuri atspausdina isvestos simboliu eilutes ASCII kodus astuntainiu pavidalu.",0Dh,0Ah, "$" 
  buferis db 120, 121 (0)
  pr2 db 0Dh,0Ah,"Eilutes ashtuntainis pawidalas: ",0Dh,0Ah, "$" 
.code

Pradzia: 
    MOV    ax, @data
    MOV    ds, ax
    mov    cl, 10o
    mov     bx, 81h 
ciklas:
    mov     ax, es:[bx]
    cmp     al, 0dh
    je     toliau
    cmp     ax, 3f2fh
    je     info
    inc     bx
    jmp     ciklas


toliau:
             
      MOV    ah, 9             
      MOV    dx, OFFSET pr1
      INT    21h        
    
      mov    ah, 0ah
      lea    dx, buferis   
      int       21h  
    
      MOV    ah, 9            
      MOV    dx, OFFSET pr2     
      INT    21h    
    
      lea       si, buferis
      inc    si
       
skaitimas:
        push  "_"
        mov    ax, [si]
   
        cmp     ah, 0dh 
        je     endas 
        
        cmp     ah, 20h  
        je    did      
        
    
        mov     al, ah 
        jmp    dalyba
     
didinimas: 
        MOV    ah, 2            
    MOV    dl, " " 
        INT    21h    
did:
        inc     si
        jmp     skaitimas
       
dalyba:  
    mov     ah, 0
    div     cl
    add     ah, 30h
    push     ax       
        cmp     al, 0 
        jne     dalyba 
        jmp     print
    
print: 
        mov    ah, 2       
        pop     dx   
        cmp     dl, "_"
        je     didinimas
        mov     dl, dh
        int     21h
        jmp     print
info:
       MOV    ah, 9            
    MOV    dx, OFFSET pr3
        INT    21h    
        jmp     toliau      
         
endas:    
    MOV     ah, 0 
    INT    16h
    MOV    ah, 4Ch    
    mov     al, 0    
    INT    21h            
END Pradzia 
